home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / proc.copyscreen < prev    next >
Text File  |  2007-03-01  |  574b  |  27 lines
  1. 0010 // ─┼╠┼╘┼ "PRC.COPYSCREEN"
  2. 0020 //   ╠╔╙╘ "PRC.COPYSCREEN"
  3. 0030 
  4. 0040 // BY ─ICK ╦LINGENS
  5. 0050 // ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  6. 0060 
  7. 0070 ╨╥╧├ COPYSCREEN ├╠╧╙┼─
  8. 0080   ╒╙┼ GRAPHICS
  9. 0090   GRAPHICSCREEN(0)
  10. 0100   BACKGROUND(0)
  11. 0110   PENCOLOR(1)
  12. 0120   CLEARSCREEN
  13. 0130   
  14. 0140   ─╔═ LINE$ ╧╞ 40
  15. 0150   
  16. 0160   ╧╨┼╬ ╞╔╠┼ 99,"DS:",╥┼┴─
  17. 0170   
  18. 0180   ╞╧╥ ROW#:=1 ╘╧ 25 ─╧
  19. 0190     ├╒╥╙╧╥ ROW#,1
  20. 0200     ╔╬╨╒╘ ╞╔╠┼ 99: LINE$
  21. 0210     PLOTTEXT(1,200-ROW#*8,LINE$)
  22. 0220   ┼╬─╞╧╥ ROW#
  23. 0230   
  24. 0240   ├╠╧╙┼ ╞╔╠┼ 99
  25. 0250   // TEXTSCREEN //   IF YOU WANT TO
  26. 0260 ┼╬─╨╥╧├ COPYSCREEN
  27.